* lisp/url/url-proxy.el (url-find-proxy-for-url): Minor simplification

diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el
index 1b3b1905e37d14a47c488b2530690fc123207df8..c89c1b6bc3ec73e1156687b990f8e03a4d725afa 100644 (file)
--- a/lisp/url/url-proxy.el
+++ b/lisp/url/url-proxy.el
@@ -49,9 +49,7 @@
     ;; Not sure how I should handle gracefully degrading from one proxy to
     ;; another, so for now just deal with the first one
     ;; (while proxies
-    (if (listp proxies)
-       (setq proxy (car proxies))
-      (setq proxy proxies))
+    (setq proxy (if (listp proxies) (car proxies) proxies))
     (cond
      ((string-match "^DIRECT" proxy) nil)
      ((string-match "^PROXY +" proxy)